home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g51.bas < prev    next >
BASIC Source File  |  1991-10-18  |  274b  |  12 lines
  1. 100 ' G51 T.WAKAMATSU 
  2. 110 CLS:PI=3.14159!
  3. 120 C(1)=2:C(2)=3:C(3)=5:C(4)=1:C(5)=0
  4. 130 PSET(320,479)
  5. 140 FOR L=1 TO 5
  6. 150   FOR T=0 TO PI*2 STEP PI/96
  7. 160     X=SIN(125*T)*239+320
  8. 170     Y=COS(125*T)*239+240
  9. 180     LINE -(X,Y),PSET,%C(L)
  10. 190   NEXT T
  11. 200 NEXT L
  12.